This dataset is described on pp. 2-3 of the textbook. You may load it from the dataset URL linked above or from the resampledata package.
library(tidyverse)
DATA <- read_csv("https://raw.githubusercontent.com/STAT-JET-ASU/Datasets/master/Chihara/NCBirths2004.csv")
glimpse(DATA)
Observations: 1,009
Variables: 8
$ ID <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,…
$ MothersAge <chr> "30-34", "30-34", "35-39", "20-24", "25-29", "35-39", "20-…
$ Tobacco <chr> "No", "No", "No", "No", "No", "No", "No", "No", "No", "No"…
$ Alcohol <chr> "No", "No", "No", "No", "No", "No", "No", "No", "No", "No"…
$ Gender <chr> "Male", "Male", "Female", "Female", "Male", "Female", "Fem…
$ Weight <dbl> 3827, 3629, 3062, 3430, 3827, 3119, 3260, 3969, 3175, 3005…
$ Gestation <dbl> 40, 38, 37, 39, 38, 39, 40, 40, 39, 39, 41, 39, 38, 39, 37…
$ Smoker <chr> "No", "No", "No", "No", "No", "No", "No", "No", "No", "No"…
head(DATA)
# A tibble: 6 x 8
ID MothersAge Tobacco Alcohol Gender Weight Gestation Smoker
<dbl> <chr> <chr> <chr> <chr> <dbl> <dbl> <chr>
1 1 30-34 No No Male 3827 40 No
2 2 30-34 No No Male 3629 38 No
3 3 35-39 No No Female 3062 37 No
4 4 20-24 No No Female 3430 39 No
5 5 25-29 No No Male 3827 38 No
6 6 35-39 No No Female 3119 39 No